home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / progDH4.2b < prev    next >
Text File  |  1995-06-29  |  562b  |  22 lines
  1. # Dans program 4.2
  2. # test a scrolled list
  3. xtAppInitialize -class Program
  4.  
  5. xmMainWindow .main managed
  6.  
  7. # creating a scrolled list makes two new widgets - the scrolled window
  8. # and the list. The sw is used for geometry, the list - as a list
  9. xmScrolledList .main.list managed
  10.  
  11. # note the list is used here
  12. .main.list setValues -itemCount 8 \
  13.     -items "red, green, blue, orange, maroon, grey, black, white"
  14. .main.list setValues -visibleItemCount 5
  15.  
  16. # note the sw is used here, not the list
  17. .main setValues -workWindow [.main.list parent]
  18.  
  19. . realizeWidget
  20.  
  21. . mainLoop
  22.